home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emacs16d.zip / _WINDOWS.MIN < prev    next >
Text File  |  1991-07-19  |  2KB  |  114 lines
  1.  
  2.  
  3.  
  4. Name:F:compare-windows
  5. Compare the two windows on a line by line basis.
  6. [*]#(==,##(rm,$)##(sp,$>),
  7.     #(ds,old-buffer,##(ba,-1))
  8.     #(..,#(ba,##(lv,ow),a))
  9.     ##(rm,$)
  10.     #(sp,$>)
  11.     #(..,#(ba,##(old-buffer)))
  12. ,(
  13.     #(==,##(lv,cl),##(lv,nl),,(
  14.         #(F:compare-windows)
  15.     ))
  16. ),(
  17.     #(sp,<)
  18.     #(ds,old-buffer,##(ba,-1))
  19.     #(..,#(ba,##(lv,ow),a))
  20.     ##(rm,$)
  21.     #(sp,<)
  22.     #(..,#(ba,##(old-buffer)))
  23. ))
  24. [*]
  25.  
  26.  
  27. Name:F:delete-other-windows
  28. Remove all the other windows from the screen.
  29. [*]    
  30. #(ds,k,##(gs,Fredisplay))
  31. #(==,##(lv,ow),0,,(
  32.     #(ds,other-window,##(lv,ow))
  33.     #(sv,ow,0)
  34. ))[*]
  35.  
  36.  
  37. Name:F:delete-window
  38. Remove the current window from the screen.
  39. [*]    
  40. #(ds,k,##(gs,Fredisplay))
  41. #(==,##(lv,ow),0,,(
  42.     #(..,#(ba,##(lv,ow)))
  43.     #(==,##(lv,cw),1,(#(sv,cw,2)),(#(sv,cw,1)))
  44.     #(Fenter-local-modes)
  45.     #(ds,other-window,##(lv,ow))
  46.     #(sv,ow,0)
  47. ))[*]
  48.  
  49.  
  50. Name:F:enlarge-window
  51. Make the current window larger.
  52. [*]    
  53. #(Fr,(
  54.     #(==,##(lv,tl),1,(
  55.         #(sv,bl,##(++,##(lv,bl),ARG1))
  56.     ),(
  57.         #(sv,tl,##(--,##(lv,tl),ARG1))
  58.     ))
  59. ),#(==,#(++,arg1),0,1,arg1))
  60. [*]
  61.  
  62.  
  63. Name:F:other-window
  64. Switch to the buffer shown in the other window.
  65. [*]#(==,##(lv,ow),0,(
  66.     #(Fmessage,No other window.)
  67. ),(
  68.     #(ba,##(lv,ow))
  69.     #(==,##(lv,cw),1,(#(sv,cw,2)),(#(sv,cw,1)))
  70. ))
  71. #(Fenter-local-modes)
  72. [*]
  73.  
  74.  
  75. Name:F:shrink-window
  76. Make the current window smaller.
  77. [*]
  78. #(Fr,(
  79.     #(==,##(lv,tl),1,(
  80.         #(sv,bl,##(--,##(lv,bl),ARG1))
  81.     ),(
  82.         #(sv,tl,##(++,##(lv,tl),ARG1))
  83.     ))
  84. ),#(==,#(++,arg1),0,1,arg1))
  85. [*]
  86.  
  87.  
  88. Name:F:split-window-vertically
  89. Split the screen into two windows, moving point to the bottom window
  90. [*]    
  91. #(ds,k,##(gs,Fredisplay-two))
  92. #(==,##(lv,ow),0,(
  93.     #(ds,current-buffer,##(ba,-1))
  94.     #(sv,ow,##(ba,-1))
  95.     #(Fmode-line)
  96.     #(..,#(ba,##(current-buffer)))
  97.     #(sv,ow,##(ba,-1))
  98.     #(==,arg1,,(
  99.         #(sv,cw,2)
  100.     ),(
  101.         #(ba,##(current-buffer))
  102.     ))
  103.     #(Fenter-local-modes)
  104. ))[*]
  105.  
  106.  
  107. Name:Fuse-other-window
  108. [*]#(==,##(lv,ow),0,(
  109.     #(F:split-window-vertically)
  110. ),(
  111.     #(..,#(ba,##(lv,ow)))
  112.     #(Fenter-local-modes)
  113.     #(==,##(lv,cw),1,(#(sv,cw,2)),(#(sv,cw,1)))
  114. ))[*]